home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
pas_all.zip
/
TI151.ASC
< prev
next >
Wrap
Text File
|
1992-08-12
|
2KB
|
133 lines
PRODUCT : TURBO GAMEWORKS NUMBER : 151
VERSION : 1.00x
OS : PC-DOS
DATE : March 13, 1986 PAGE : 1/2
TITLE : SCORING UPDATE FOR BRIDGTE
The following are updates to the scoring in the BRIDGE program.
Make the modifications listed below, and enter the current date
at the top of each module.
All modifications must be made to the SCORE.BR include file with
Turbo Pascal, version 3.0.
1) The first change involves a stray 1 that is added to the
overline score after a game is won. To rectify this:
In procedure AddBonus:
Change:
if RubberBonus > 0 then
...
To:
if RubberBonus > 1 then
...
2) The following changes correct the totals that are sent to
the script file:
A) In procedure CompareTotals
Change:
N_S.Total := N_S.Total + RubberBonus;
if E_W.Total > N_S.Total then
To:
if E_W.Total > N_S.Total + RubberBonus then
Change:
E_W.Total := E_W.Total + RubberBonus;
if N_S.Total > E_W.Total then
To:
PRODUCT : TURBO GAMEWORKS NUMBER : 151
VERSION : 1.00x
OS : PC-DOS
DATE : March 13, 1986 PAGE : 2/2
TITLE : SCORING UPDATE FOR BRIDGE
if N_S.Total > E_W.Total + RubberBonus then
B) In procedure OutputGame delete both occurrences of:
Total := Total + GameRecord[ThisGame];
C) In procedure OutputTeamTotals:
Change:
with N_S do
Write(OutputFile, Total + OverLine:4 , ' | ');
with E_W do
Write(OutputFile, Total + OverLine:4);
To:
with N_S do
Write(OutputFile, Total:4 , ' | ');
with E_W do
Write(OutputFile, Total:4);
DISCLAIMER: You have the right to use this technical information
subject to the terms of the No-Nonsense License Statement that
you received with the Borland product to which this information
pertains.